home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / src / dada.lha / dada / xpand.dada < prev    next >
Encoding:
Text File  |  1995-02-26  |  466 b   |  21 lines
  1. {
  2. #####........#####
  3. .#####......#####
  4. ..#####....#####
  5. ...#####..#####
  6. ....##########
  7. .....########
  8. ......######
  9. .....########
  10. ....##########
  11. ...#####..#####
  12. ..#####....#####
  13. .#####......#####
  14. #####........#####
  15. XTF}
  16. [^[$$32=\10=|][%^]#]a:           {skip cr's and spaces}
  17. [$0\>~\9>~&]b:                  {"0"<=arg<="9"}
  18. [0\'0-[$b;!][\10*+^'0-]#]c:      {read c, while "0"<=c<="9" do a=10*a+c-ord("0")}
  19. [[$1_=~][$10=$[1ø,]?~[1ø[$0=~][1ø,1_+]#%]?%^]#]x:
  20. a;!c;!%^x;!
  21.